home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo Applications CD / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuickMail / Installer Resources / Scripts / Delphi.TYMNET.Teknic < prev    next >
Text File  |  1992-03-20  |  2KB  |  102 lines
  1. * Delphi Script, for QuickMail™
  2. * © 1989 Teknic Inc.
  3. *
  4. *
  5. * NOTE: THIS SCRIPT ONLY WORKS IF YOU ARE CALLING IN THROUGH TYMNET.
  6. *
  7. * This is a simple script for logging onto Delphi directly
  8. * Since Delphi does not support normal binary file transfer, this script
  9. * doesn't either.
  10. *
  11. * 
  12. * This is called to log us into Delphi
  13. :IN
  14. OOPS 30,FAILURE
  15. PAUSE 2
  16. TYPE a
  17. WAIT log in:
  18. PAUSE 1
  19. TYPE delphi^M
  20. WAIT Username:
  21. PAUSE 1
  22. TYPE «LOGID»^M
  23. WAIT Password:
  24. TYPE «PASSWORD»^M
  25. ISMAIL new Mail message
  26. * this script assumes you have the option set to go
  27. * to the MAC area on startup.  Typing “GR MAC” would do the same.
  28. WAIT MAC>
  29. TYPE GO MAIL^M
  30. * I think TYPE MAIL^M above would do the same...
  31. WAIT DMAIL>
  32. TYPE /len=0^M
  33. WAIT DMAIL>
  34. SUCCESS
  35. *
  36. * This logs us off Delphi
  37. *
  38. :BYE
  39. TYPE BYE^M
  40. ALERT 1,SUCCESS,log in:
  41. ALERT 2,SUCCESS,NO CARRIER
  42. PAUSE 10
  43. SUCCESS
  44. *
  45. * This is called to send one piece of mail
  46. *
  47. :SEND
  48. OOPS 60,FAILURE
  49. TYPE MAIL^M
  50. WAIT MAIL>
  51. TYPE SEND^M
  52. WAIT To:
  53. TYPE «ADDRESS»^M
  54. WAIT Subj:
  55. TYPE «TOPIC»^M
  56. WAIT C to quit:
  57. TYPE Attn: «NAME»^M
  58. DUMP ^J
  59. TYPE ^Z
  60. WAIT MAIL>
  61. TYPE EXIT^M
  62. WAIT DMAIL>
  63. SUCCESS
  64. *
  65. * This is called to receive mail.  It is called continually with increasing
  66. * values in «COUNT», until FAILURE occurs.  You can put all reads into one
  67. * listing, if you wish
  68. *
  69. :RECEIVE
  70. OOPS 60,FAILURE
  71. ALERT 1,R10,No more messages
  72. ALERT 2,R20,You aren't
  73. ALERT 3,R20,Folder MAIL does not exist
  74. TYPE MAIL^M
  75. WAIT MAIL>
  76. TYPE ^M
  77. :R1
  78. WAIT MAIL^M
  79. * sneaky - the above line checks waits until the “FOLDER” name appears
  80. * at the top of a mail message before starting the buffer.  Even better,
  81. * this would work for either the NEWMAIL or the MAIL folders.
  82. BUFFER MAIL>
  83. RECEIVE Subj:,Attn:,From:,To:,
  84. * might want to do a FILE here, and purge the folder the next time the
  85. * script is run, just in case something gets lost...
  86. TYPE DELETE^M
  87. :R10
  88. WAIT MAIL>
  89. TYPE EXIT^M
  90. WAIT DMAIL>
  91. ALERT 1,,
  92. ALERT 2,,
  93. ALERT 3,,
  94. SUCCESS
  95. :R20
  96. TYPE EXIT^M
  97. ALERT 1,,
  98. ALERT 2,,
  99. ALERT 3,,
  100. FAILURE
  101.  
  102.